home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacWorld 1996 April
/
Macworld (1996-04).dmg
/
Educational Demos
/
Encyclopedia of Nature
/
DATA
/
Shared.Dir
/
00335_Script_335
< prev
next >
Wrap
Text File
|
1995-04-13
|
797b
|
29 lines
on PCorMac eitherFN
--send this a Filename in form XXXXX?.Dir
--and 5th char from the end is reset depending on machine type
if the machinetype = 256 then
set type = "P"
else
set type = "M"
end if
put type into char (length(eitherFN)-4) of eitherFN
go frame "st" of movie string(eitherFN)
end
on goer
if getat(movielist, count(movielist)) = count(movielist) - 1 then
put getat(movielist, 1) into moviename
setat movielist, count(movielist), 1
else
set x = (1 + getat(movielist, count(movielist)))
setat movielist, count(movielist), x
put getat(movielist, x) into moviename
end if
put "@:" & chars(moviename, 2, length(moviename)) into moviename2
put moviename2
go frame "st" of movie moviename2
end